home *** CD-ROM | disk | FTP | other *** search
/ Planet-E 3 / Planet-E - Issue 3 (1994)(Megawatts).adf / install-planete < prev    next >
Text File  |  1992-09-02  |  2KB  |  77 lines
  1. ; Planet E Installer - Issue 3
  2. (user 0)
  3. (set old_level @user-level)
  4. (complete 0)
  5. (user 2)
  6. (set dest2 (askdir (prompt "Select Directory you wish Planet-E Issue 3 to be installed")
  7.           (default "sys:")
  8.                   (help "A directory 'PlanetE' will be created"
  9.                         "in the partition or directory chosen."
  10.             "The PlanetE files will be placed here."
  11.           )
  12.           )
  13. )
  14. (set destfonts "FONTS:")
  15. (set destlibs "LIBS:")
  16. (set destxpk "LIBS:compressors/")
  17. (user old_level)
  18. (set dest1 (tackon dest2 "PlanetE"))
  19. (set destdata (tackon dest1 "data"))
  20. (set destart (tackon dest1 "art"))
  21. (set destbin (tackon dest1 "bin"))
  22. (makedir dest1 (infos))
  23. (message "Installing Font to FONTS:" )
  24. (copyfiles (source "fonts") (dest destfonts) (all))
  25. (if (exists "LIBS:xpkmaster.library")
  26.     (   (set noppinstall "Not Installing")
  27.     )
  28.     (
  29.         (message "Installing xpkmaster.library to LIBS:" )
  30.         (copyfiles (source "libs/xpkmaster.library") (dest destlibs) )
  31.     )
  32. )
  33. (if (exists "LIBS:compressors")
  34.     (   (set nocmpinstall "Not Installing")
  35.     )
  36.     (
  37.         (message "Creating Libs:compressors directory" )
  38.         (makedir "libs:compressors" )
  39.     )
  40. )
  41. (if (exists "LIBS:compressors/xpkBLZW.library")
  42.     (   (set noblzwinstall "Not Installing")
  43.     )
  44.     (
  45.         (message "Installing BLZW xpk compressor library to LIBS:compressors" )
  46.         (copyfiles (source "libs/compressors/xpkBLZW.library") (dest destxpk) )
  47.     )
  48. )
  49. (if (exists "LIBS:compressors/xpkSQSH.library")
  50.     (   (set nosqshinstall "Not Installing")
  51.     )
  52.     (
  53.         (message "Installing SQSH xpk compressor library to LIBS:compressors" )
  54.         (copyfiles (source "libs/compressors/xpkSQSH.library") (dest destxpk) )
  55.     )
  56. )
  57.  
  58. (complete 1)
  59. (set @default-dest destdata)
  60. (message "Installing Internal Data files to " destdata)
  61. (copyfiles (source "data") (dest destdata) (all))
  62. (copyfiles (source "PlanetE_Issue_3") (dest dest1) (infos))
  63. (copyfiles (source "Xicon") (dest dest1))
  64. (complete 10)
  65. (set @default-dest destart)
  66. (message "Installing Articles to " destart)
  67. (copyfiles (source "art") (dest destart) (all))
  68. (complete 30)
  69. (set @default-dest destbin)
  70. (message "Installing Music to " destbin)
  71. (copyfiles (source "bin") (dest destbin) (all))
  72. (complete 90)
  73. (set @default-dest dest1)
  74. (message "Installing Main Executable PlanetE to " dest1)
  75. (copyfiles (source "planete") (dest dest1) (infos))
  76. (complete 100)
  77.